package body playlist is

   function is_Empty (p : Playlist_Type) return Boolean is
   begin
      return (p.First = 0 and p.Last = 0 and p.Current = 0);
   end is_Empty;

end playlist;
